home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus Extra 1996 #3 / AmigaPlus_CD-ROM-EXTRA_Nr.3.bin / aminet-spiele / zwei spieler / hf disk2 / diskinvaihto.amos / diskinvaihto.amosSourceCode < prev    next >
AMOS Source Code  |  1993-03-08  |  807b  |  36 lines
  1. If Prg Under Then Bgrab 11 : DISK=Peek(Start(11)+4) : Bsend 11
  2. Load "HF2:DiskinVaihto2.Abk"
  3. Open In 1,"Hf2:HFlatauskuva diskinv.anim8"
  4. L=Frame Length(1,999)
  5. A=Frame Load(1 To 6,999)
  6. Screen Open 1,320,256,4096,Lowres
  7. B=Frame Play(6,1,1)
  8. Double Buffer 
  9. Hide 
  10.  
  11. Screen Open 2,320,50,8,Lowres : Cls 0 : Flash Off : Hide 
  12. Screen Display 2,,240,,
  13. Get Sprite Palette 
  14.  
  15. Screen 1
  16. Close 1
  17. Autoback 0
  18. Update Off 
  19.  
  20. If DISK=1 Then DISKSTRING$="HF1:"
  21. If DISK=3 Then DISKSTRING$="HF3:" : DISK=2
  22.  
  23. Screen To Front 2
  24. While Not Exist(DISKSTRING$)
  25.    SEURAAVA=Frame Play(6,1)
  26.    If AB=0 Then Screen 2 : Bob 1,155,30,DISK : Bob Update : AB=1 : Screen 1
  27.    For COUNTER=2 To A-1
  28.       SEURAAVA=Frame Play(SEURAAVA,1)
  29.       Screen Swap 
  30.       Wait Frame Param+3
  31.    Next COUNTER
  32. Wend 
  33. Bob Off 
  34. Screen Close 1
  35. Screen Close 2
  36. Erase All